home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / intui.lha / EzRequest.s < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.4 KB  |  97 lines
  1.  
  2. ; -------------->  Setup Shell Code  <-----------
  3.  
  4.     SECTION    shell,code_c
  5.     
  6.     opt    o+,c-
  7.     
  8.     include    includes/libs.i
  9.  
  10. ; --------------> Main Routines
  11.  
  12.  
  13.     bra.s    OpenLibraries
  14. back1    bsr    CreateRequest
  15.     
  16.     bra.s    CloseLibraries
  17. back2    
  18.     rts
  19.     
  20. ; --------------> Open Libraries
  21.  
  22. OpenLibraries
  23.     lea    INTname(pc),a1
  24.     bsr    openLIB
  25.     move.l    d0,INTbase
  26.     beq    noINT
  27.     lea    GADname(pc),a1
  28.     bsr    openLIB
  29.     move.l    d0,GADbase
  30.     beq    noGAD
  31.     lea    GFXname(pc),a1
  32.     bsr    openLIB
  33.     move.l    d0,GFXbase
  34.     beq    noGFX
  35.     bra.s    back1
  36.  
  37. openLIB
  38.     move.l    $4.w,a6
  39.     moveq.l    #0,d0
  40.     jsr    OpenLibrary(a6)
  41.     rts
  42.  
  43. ; --------------> Close Libraries
  44.  
  45. CloseLibraries
  46.     move.l    INTbase,a1
  47.     bsr    closeLIB
  48.     move.l    GADbase,a1
  49.     bsr    closeLIB
  50.     move.l    GFXbase,a1
  51.     bsr    closeLIB
  52.     bra.s    back2
  53.     
  54.  
  55. closeLIB
  56.     move.l    $4.w,a6
  57.     jsr    CloseLibrary(a6)
  58.     rts
  59.     
  60. ; --------------> Error Routines
  61.  
  62. noINT
  63. noGAD
  64. noGFX
  65.     
  66. ; --------------> Routines
  67. CreateRequest
  68.     move.l    INTbase,a6
  69.     move.l    #0,a0
  70.     lea    RequestStruct,a1
  71.     lea    RequestFlags,a2
  72.     move.l    #0,a3
  73.     jsr    EasyRequestArgs(a6)
  74.     rts
  75.  
  76. ; --------------> Data
  77.     
  78. INTname        dc.b    'intuition.library',0
  79. GADname        dc.b    'gadtools.library',0
  80. GFXname        dc.b    'graphics.library',0
  81.  
  82. Title        dc.b    'EZrequest',0
  83. Fmt        dc.b    '  xxxxxxx ',$a
  84.         dc.b    '123456',0
  85.  
  86. Buttons        dc.b    'Okay|Maybe|Could do|Might do|Never know|Cancel',0
  87.     
  88. INTbase        dc.l    0
  89. GADbase        dc.l    0
  90. GFXbase        dc.l    0
  91. Windowhd    dc.l    0
  92.  
  93. RequestFlags    dc.l    0
  94. RequestStruct    dc.l    es_SIZEOF,0,Title,Fmt,Buttons
  95.  
  96.     end
  97.